home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / robin10.arc / ROBIN-DR.SUB < prev    next >
Encoding:
Text File  |  1987-05-08  |  2.0 KB  |  138 lines
  1. ;                   ROBIN-DR.SUB    "Round Robin Dialer"
  2. ;                                 by
  3. ;                           Samuel Smulowitz
  4. ;                          CENTURY ASSOCIATES
  5. ;                          141-04 71st Avenue
  6. ;                          Flushing, N.Y. 11367
  7. ;
  8. START:
  9.   GOTO DIALING1
  10. ;
  11. ;
  12. DIAL:
  13.    SWITCH S0
  14.      CASE "SKIP"
  15.      RETURN
  16.      ENDCASE
  17.      CASE "END"
  18.      RETURN
  19.      ENDCASE
  20.    ENDSWITCH
  21.    LOCATE 20,29
  22.    MESSAGE S0
  23.    MACRO 1
  24.    FIND S0 "+"
  25.      IF FOUND
  26.      MACRO 3
  27.      ENDIF
  28.    TRANSMIT S0
  29.    FIND S0 "(0)"
  30.      IF FOUND
  31.      MACRO 2
  32.      ENDIF
  33.    TRANSMIT "!"
  34.    WAITFOR "CONNECT" 25
  35.    IF WAITFOR
  36.      GOTO CONNECTED
  37.    ELSE
  38.      HANGUP
  39.    ENDIF
  40.    RETURN
  41. ;
  42. ;
  43. CONNECTED:
  44.   EXECUTE "ROBIN-EX.SUB"
  45. ;
  46.  
  47. ;
  48. DIALING1:
  49.   SWITCH S9
  50.     CASE "1"
  51.       GOTO DIAL1
  52.     ENDCASE
  53.     CASE "2"
  54.       GOTO DIAL2
  55.     ENDCASE
  56.     CASE "3"
  57.       GOTO DIAL3
  58.     ENDCASE
  59.     CASE "4"
  60.       GOTO DIAL4
  61.     ENDCASE
  62.     CASE "5"
  63.       GOTO DIAL5
  64.     ENDCASE
  65.     CASE "6"
  66.       GOTO DIAL6
  67.     ENDCASE
  68.     CASE "7"
  69.       GOTO DIAL7
  70.     ENDCASE
  71.     CASE "8"
  72.       GOTO DIAL8
  73.     ENDCASE
  74.     DEFAULT
  75.       GOTO DIAL1
  76.     ENDCASE
  77.   ENDSWITCH
  78. ;
  79. ;
  80. ;
  81. DIAL1:
  82.    ASSIGN S0 S1
  83.    GOSUB DIAL
  84. DIAL2:
  85.    ASSIGN S0 S2
  86.    SWITCH S0
  87.      CASE "END"
  88.      GOTO DIAL1
  89.      ENDCASE
  90.    ENDSWITCH
  91.    GOSUB DIAL
  92. DIAL3:
  93.    ASSIGN S0 S3
  94.    SWITCH S0
  95.      CASE "END"
  96.      GOTO DIAL1
  97.      ENDCASE
  98.    ENDSWITCH
  99.    GOSUB DIAL
  100. DIAL4:
  101.    ASSIGN S0 S4
  102.    SWITCH S0
  103.      CASE "END"
  104.      GOTO DIAL1
  105.      ENDCASE
  106.    ENDSWITCH
  107.    GOSUB DIAL
  108. DIAL5:
  109.    ASSIGN S0 S5
  110.    SWITCH S0
  111.      CASE "END"
  112.      GOTO DIAL1
  113.      ENDCASE
  114.    ENDSWITCH
  115.    GOSUB DIAL
  116. DIAL6:
  117.    ASSIGN S0 S6
  118.    SWITCH S0
  119.      CASE "END"
  120.      GOTO DIAL1
  121.      ENDCASE
  122.    ENDSWITCH
  123.    GOSUB DIAL
  124. DIAL7:
  125.    ASSIGN S0 S7
  126.    SWITCH S0
  127.      CASE "END"
  128.      GOTO DIAL1
  129.      ENDCASE
  130.    ENDSWITCH
  131.    GOSUB DIAL
  132. DIAL8:
  133.    ASSIGN S0 S8
  134.    GOSUB DIAL
  135. ;
  136. GOTO DIAL1
  137. ;
  138. EXIT